﻿Imports System.Text.RegularExpressions

Public Class cbeMMSContent


    Private Const reg_cbeMMS_Text As String = "\s*(?<SJouNameStr>.+?)\s*\((?<SHostNameStr>.+)\).*\[(?<SIPAddressStr>.+)\]"
    Private reg As Regex

    Public Sub New(cbeMMSContent As String)

        reg = New Regex(reg_cbeMMS_Text)
        Dim match = reg.Match(cbeMMSContent)
        SHostNameStr = match.Groups("SHostNameStr").Value
        SIPAddressStr = match.Groups("SIPAddressStr").Value
        SJouNameStr = match.Groups("SJouNameStr").Value

    End Sub

    Public Property SHostNameStr
    Public Property SIPAddressStr
    Public Property SJouNameStr

End Class
